home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G13F / G13_OBIH.Dxr / 00083_ýÞ¤Ÿóp.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.5 KB  |  66 lines
  1. global glocv1, gloch1, x1, x2, y1, y2, high1, haba1, ga
  2.  
  3. on pushbutton1
  4.   repeat while stillDown()
  5.     if rollOver(clickOn()) then
  6.       case ga of
  7.         "D1":
  8.           set cname to "scrld"
  9.           set the memberNum of sprite 25 to 43
  10.           testd1()
  11.         "U1":
  12.           set cname to "scrlu"
  13.           set the memberNum of sprite 24 to 41
  14.           testu1()
  15.       end case
  16.     else
  17.       set the memberNum of sprite 25 to 42
  18.       set the memberNum of sprite 24 to 40
  19.     end if
  20.     updateStage()
  21.   end repeat
  22. end
  23.  
  24. on pushbutton2
  25.   repeat while stillDown()
  26.     if rollOver(clickOn()) then
  27.       case ga of
  28.         "D1":
  29.           set cname to "scrld"
  30.           set the memberNum of sprite 25 to 61
  31.           testd1()
  32.         "U1":
  33.           set cname to "scrlu"
  34.           set the memberNum of sprite 24 to 59
  35.           testu1()
  36.       end case
  37.     else
  38.       set the memberNum of sprite 25 to 60
  39.       set the memberNum of sprite 24 to 58
  40.     end if
  41.     updateStage()
  42.   end repeat
  43. end
  44.  
  45. on testd1
  46.   if (glocv1 >= y1) and (glocv1 <= y2) then
  47.     set glocv1 to glocv1 + 6
  48.     if glocv1 > y2 then
  49.       set glocv1 to y2
  50.     end if
  51.     set the rect of sprite 1 to rect(gloch1, glocv1, gloch1 + haba1, glocv1 + high1)
  52.   else
  53.   end if
  54. end
  55.  
  56. on testu1
  57.   if (glocv1 >= y1) and (glocv1 <= y2) then
  58.     set glocv1 to glocv1 - 6
  59.     if glocv1 < y1 then
  60.       set glocv1 to y1
  61.     end if
  62.     set the rect of sprite 1 to rect(gloch1, glocv1, gloch1 + haba1, glocv1 + high1)
  63.   else
  64.   end if
  65. end
  66.